home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / CloseS.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  155 b   |  12 lines
  1. ; a0 - screen
  2.  
  3.     xdef    _CloseS
  4.  
  5. _CloseS    move.l    a6,-(a7)
  6.     move.l    _IntuitionBase,a6
  7.     jsr    (-66,a6)        ; CloseScreen()
  8.     move.l    (a7)+,a6
  9.     rts
  10.  
  11.     xref    _IntuitionBase
  12.